home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / sat-6.bas < prev    next >
BASIC Source File  |  1994-06-23  |  2KB  |  65 lines
  1. 5 COLOR 0,13:PRINT
  2. 6 PRINT
  3. 10 PRINT,"TRUE BEARING AND ELEVATION OF GEO-SYNCHRONOUS SATELLITE."
  4. 11 COLOR 15,0:PRINT
  5. 12 PRINT
  6. 20 P=355/113
  7. 30 Z=180/P
  8. 40 R=6367
  9. 50 H=35800!
  10. 60 INPUT "LONGITUDE OF SATELLITE:DG,MN,E OR W";AE,AF,A$
  11. 70 AG=AE+AF/60
  12. 80 IF A$="W" THEN AG=-AG
  13. 90 INPUT "LONGITUDE OF RECEIVER:DG,MN,E OR W";AH,AI,B$
  14. 100 AJ=AH+AI/60
  15. 110 IF B$="W" THEN AJ=-AJ
  16. 120 INPUT "LATITUDE OF RECEIVER:DG,MN,N OR S";AK,AL,C$
  17. 130 AM=AK+AL/60
  18. 140 IF C$="S" THEN AM=-AM
  19. 150 B=AJ-AG
  20. 152 IF B > 180 THEN B=B-360
  21. 154 J=ABS(B)
  22. 156 IF J < 81.3 THEN 160 ELSE 1000
  23. 160 AA=B/Z
  24. 170 AB=TAN(AA)
  25. 180 AC=AM/Z
  26. 190 AD=SIN(AC)
  27. 191 IF C$="S" THEN 220 ELSE 200
  28. 200 ZN=180+Z*(ATN(AB/AD))
  29. 211 GOTO 250
  30. 220 ZS=Z*(ATN(AB/AD))
  31. 250 K=R^2
  32. 260 L=(R+H)^2
  33. 270 M=2*R*(R+H)
  34. 280 N=COS(AA)
  35. 290 Q=COS(AC)
  36. 300 T=N*Q
  37. 310 CA=-ATN(T/SQR(-T*T+1))+1.5708
  38. 320 C=Z*CA
  39. 330 IF C < 81.3 THEN 370 ELSE 1000
  40. 370 S=(K+L-M*T)^.5
  41. 380 U=S^2
  42. 390 V=(U+K-L)/(2*R*S)
  43. 400 W=-ATN(V/SQR(-V*V+1))+1.5708
  44. 410 E=Z*W-90
  45. 420 PRINT
  46. 430 COLOR 0,15:PRINT
  47. 440 PRINT
  48. 450 PRINT "                            ***ANSWERS***"
  49. 460 PRINT
  50. 470 IF J < 81.3 THEN 480 ELSE 1000
  51. 480 IF C < 81.3 THEN 484 ELSE 1000
  52. 484 IF C$="N" THEN 490 ELSE 500
  53. 490 PRINT ZN, "         TRUE BEARING OF SATELLITE."
  54. 500 IF C$="S" THEN 510 ELSE 520
  55. 510 PRINT ZS, "         TRUE BEARING OF SATELLITE."
  56. 520 PRINT E, "         ELEVATION ANGLE OF SATELLITE."
  57. 530 GOTO 1020
  58. 1000 PRINT:PRINT: PRINT, "SATELLITE IS BELOW THE HORIZON"
  59. 1010 PRINT
  60. 1020 COLOR 0,10:PRINT
  61. 1030 PRINT
  62. 1040 PRINT "                   PROGRAM BY I.L. McNally"
  63. 1050 PRINT
  64. 1060 COLOR 15,0
  65.